home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
EDUCATE
/
MATHX.ARJ
/
FINANCE.ENV
< prev
next >
Wrap
Text File
|
1991-07-08
|
929b
|
31 lines
Z=INFO:Z=INT(Z*.0001):IF Z=>300}201
| FINANCE.ENV file |
| Copyright 1991, by David Denker, Box 115, Isanti, Mn. 55040 |
DSP nn; Sorry, this file must be used with MATHX V3.00 or greater!;n
wait10:quit
#201
EVHD H" COMMANDS PARAMETERS INFORMATION LOAD∙APL
UTILITIES "W" MENU∙APL "H" "
x=10:i=0:j=0:WINDD T1;───────────────┘ └
;!A;mortization table
;!B;alance of loan payoff
;!C;ompound interest
;!E;arnings rate
;!I;nformation . . .
;!L;oan interest rate
;!P;ayments for loan
;!S;avings table;XR1C53
#203:f=1:call100:f=0
IF R=1}1:IF R=2}199:IF R=3}99:if r=5}3:if r=4}c225
if j<>1}204:@A:goto99
#204:if j<>2}205:@B:goto99
#205:if j<>3}206:@C:goto99
#206:if j<>4}207:@E:goto99
#207:if j<>5}208:@I:goto99
#208:if j<>6}209:@L:goto99
#209:if j<>7}210:@P:goto99
#210:if j<>8}99:@S:goto99
tone40:goto203
#225:j=data k{1,2,3,0,4,0,0,0,5,0,0,6,0,0,0,7,0,0,8,0,0,0,0,0,0,0}:ret